home *** CD-ROM | disk | FTP | other *** search
/ Cocktail Hour / image.iso / COCKTAIL.DIR / 00006_Script_mouseUp for lines < prev    next >
Text File  |  1997-03-05  |  1KB  |  37 lines
  1. on mouseDown
  2.   --set howList="long,short,shot,hot"
  3.   global ScrollVec
  4.   set QueryFieldVec=["alco","non-alco","other","total","when","how"]
  5.   global scrollVec
  6.   setAt scrollVec, 4, 1
  7.   set n=the number of chars of the name of the member of sprite the clickOn
  8.   set CastPressed=char 7 to n of the name of the member of sprite the clickOn
  9.   set whichScroll=getPos(QueryFieldVec, CastPressed)
  10.   set ScrollPos=getat(ScrollVec,WhichScroll)
  11.   
  12.   if the mouseLine>-1 then
  13.     set LinePressed=the mouseline
  14.     
  15.     set choice=castPressed&(LinePressed+ScrollPos-1)
  16.     
  17.     global CompVec
  18.     
  19.     set x=getOne(CompVec,choice)
  20.     if x=0 then
  21.       add CompVec,choice
  22.       unity (castPressed&"Curr",choice)
  23.       set the forecolor of line linePressed of field ("query-"&castPressed)=35
  24.     else
  25.       deleteAt(CompVec,x)
  26.       dissension (castPressed&"Curr",choice)
  27.       set the forecolor of line linePressed of field ("query-"&castPressed)=204
  28.     end if
  29.     divide
  30.     
  31.     HitListCheck
  32.     
  33.     showCurrent
  34.     
  35.   end if
  36. end
  37.